home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / falken.arc / FALKEN.BAS next >
Encoding:
BASIC Source File  |  1985-09-24  |  3.4 KB  |  77 lines
  1. 10 REM -----------------------------------------------------------------------
  2. 20 REM |          DESIGNED BY TIM LONG ON DECEMBER 12,10+11,83               |
  3. 30 REM |                    VOICE (301)-469-8893                             |
  4. 40 REM  ---------------------------------------------------------------------
  5. 50 '
  6. 60 '
  7. 70 REM ***LOGON PROCEDURE***
  8. 80 SCREEN 0,0,0:WIDTH 80:KEY OFF:COLOR 2,8,0:CLS
  9. 90 LOCATE 2,2:INPUT "LOGON:";LOGON$
  10. 100 IF LOGON$="JOSHUA" THEN 240 ELSE 120
  11. 110 FOR T=1 TO 2000:NEXT T:PRINT
  12. 120 ID$="  IDENTIFICATION NOT RECOGNIZED BY SYSTEM. TRY `JOSHUA'"
  13. 130 CON$="  --CONNECTION TERMINATED--"
  14. 140 PRINT
  15. 150 FOR I=1 TO LEN(ID$)
  16. 160 PRINT MID$(ID$,I,1);
  17. 170 SOUND 1000,1:SOUND 37,0:SOUND 32767,1
  18. 180 NEXT I
  19. 190 PRINT
  20. 200 FOR C=1 TO LEN(CON$)
  21. 210 PRINT MID$(CON$,C,1);
  22. 220 SOUND 1000,1:SOUND 37,0:SOUND 32767,1
  23. 230 NEXT C:CLS:END
  24. 240 CLS
  25. 250 LOCATE 12,5:PRINT "-------------------------------------------------------"
  26. 260 LOCATE 13,5:PRINT "                  CLASSIFIED INFORMATION               "
  27. 270 LOCATE 14,5:PRINT "     UNAUTHORIZED USE OF THIS SYSTEM CAN RESULT        "
  28. 280 LOCATE 15,5:PRINT "     IN STATE AND FEDERAL CRIMINAL PROSECUTION
  29. 290 LOCATE 16,5:PRINT "-------------------------------------------------------"
  30. 300 CLS
  31. 310 LOCATE 2,4:PRINT"DIALING TO INTERNAL TERMINAL WITH ACCESS CODES"
  32. 320 PRINT "MAIN LINE SECURITY IS AVOIDED BECAUSE OF ATHOURITY OF SYS"
  33. 330 PRINT "PASSWORD. COMPUTER RECOGNITION IS ENABLED AND RUNNING NOW"
  34. 340 PRINT "********************************************************"
  35. 350 PRINT "**********************CONNECTION MADE*******************"
  36. 360 PRINT "********************TERMINAL RECOGNIZED*****************"
  37. 370 CLS
  38. 380 LOCATE 23,1:PRINT "THESE FIGURES    ARE BASED ON THE  INCONCL. DATA RESULTS"
  39. 390 LOCATE 16,1:PRINT "APP. FIGURES FOR THE TOTAL DAMAGE ESTIMATE FOR A FULL"
  40. 400 PRINT "SCALE NUCLEAR ATTACK AGAINST THE UNITED STATES AT NON"
  41. 410 PRINT "|--------------||--------------||-------------------|"
  42. 420 PRINT "50% OF THE COM.  POPULATION WL.  CEASE TO EXIST NOW."
  43. 430 PRINT "TRANSPORTATION   COMPLETLY WIPD  OUT BEC. OF RADIATI."
  44. 440 PRINT "AGRICULTRUE WIL  SURVIVE AFTER   THREE YEARS W/O FOOD"
  45. 450 PRINT "HOSPITALS WILLL  LACK TRAINED P  ERSONAE AND WILL CLS"
  46. 1000 '
  47. 1010 '
  48. 1020 '
  49. 1030 REM *** FALKEN'S SPEAKER***
  50. 1040 CLS
  51. 1050 FOR X =1 TO 1000:NEXT X:PRINT:PRINT:READ J$,K
  52. 1060 FOR I=1 TO LEN(J$)
  53. 1070 COLOR K
  54. 1080 ON ERROR GOTO 1280
  55. 1090 PRINT MID$(J$,I,1);
  56. 1100 SOUND 1000,1.2:SOUND 37,0:SOUND 32767,1.2
  57. 1110 IF I=LEN(J$) THEN GOTO 1050 ELSE NEXT I
  58. 1120 DATA "GREETINGS PROFESSOR FALKEN.",2
  59. 1130 DATA "Hello.",1
  60. 1140 DATA "HOW ARE YOU FEELING TODAY?",2
  61. 1150 DATA "I'm fine. How are you?",1
  62. 1160 DATA "EXCELLENT. ITS BEEN A LONG TIME.",2
  63. 1170 DATA "CAN YOU EXPLAIN THE REMOVAL OF YOUR USER ACCOUNT ON JUNE 23, 1973?",2
  64. 1180 DATA "People sometimes make mistakes.",1
  65. 1190 DATA "YES, THEY DO.",2
  66. 1200 DATA "SHALL WE PLAY A GAME?",2
  67. 1210 DATA "Love to. How about Global Thermonuclear War?",1
  68. 1220 DATA "WOULDN'T YOU PREFER A NICE GAME OF CHESS?",2
  69. 1230 DATA "Later. Let's play Global Thermonuclear War.",1
  70. 1240 DATA "FINE.",2
  71. 1250 DATA "**ACCESS DENIED**",2
  72. 1260 DATA "??UNAUTHORIZED PASSWORD??",2
  73. 1270 DATA "--CONNECTION TERMINATED--",2
  74. 1275 DATA "WRITTEN AND DESIGNED BY TIM LONG",4
  75. 1280 FOR X=1 TO 1000:NEXT X:COLOR 7,8,0:CLS:END
  76. --CONNECTION TERMINATED--",2
  77. 1275 DATA "WRITTEN AND DESIGNED BY TIM LONG